home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / heading.l < prev    next >
Text File  |  2007-02-28  |  571b  |  31 lines
  1. 9000 FUNC HEADING CLOSED
  2. 9010 A:=PEEK(27277); B:=PEEK(27278)
  3. 9020 CASE A OF
  4. 9030 WHEN 0
  5. 9040 RETURN 90
  6. 9050 WHEN 129
  7. 9060 RETURN 89
  8. 9070 WHEN 130
  9. 9080 RETURN 88-(B DIV 64)
  10. 9090 WHEN 131
  11. 9100 RETURN 86-(B DIV 32)
  12. 9110 WHEN 132
  13. 9120 RETURN 82-(B DIV 16)
  14. 9130 WHEN 133
  15. 9140 RETURN 74-(B DIV 8)
  16. 9150 WHEN 134
  17. 9160 RETURN 58-(B DIV 4)
  18. 9170 WHEN 135
  19. 9180 IF B<53 THEN
  20. 9190 RETURN 26-(B DIV 2)
  21. 9200 ELSE 
  22. 9210 RETURN 386-(B DIV 2)
  23. 9220 ENDIF 
  24. 9230 WHEN 136
  25. 9240 RETURN 322-B
  26. 9250 WHEN 137
  27. 9260 RETURN (194-(B*2))-(PEEK(27279) DIV 128)
  28. 9270 ENDCASE 
  29. 9280 ENDFUNC HEADING
  30. 9290 //
  31.